home *** CD-ROM | disk | FTP | other *** search
/ Ah My Goddess / Ah My Goddess.iso / pc / stage / orb.dxr / 00014.ls < prev    next >
Encoding:
Text File  |  1997-09-08  |  2.0 KB  |  87 lines
  1. on lfxkeycontrol
  2.   dontPassEvent()
  3.   set the keyDownScript to "checkKey"
  4. end
  5.  
  6. on lfxkeycontroloff
  7.   dontPassEvent()
  8.   set the keyDownScript to EMPTY
  9. end
  10.  
  11. on checkkey
  12.   global gvmacorwin, glkeyset, gvslevellist, gvsoundlevel, gvtempo, gvpictnum, glpictlist, gvmovpouse, gvmovpoint, gvmovhelppoint, gvmovwait, gvlmovie, gvhelpmode
  13.   dontPassEvent()
  14.   case getPos(glkeyset, the keyCode) of
  15.     1:
  16.       nothing()
  17.       unloadorb()
  18.       set gvhelpmode to 0
  19.       helphyoujiorb("Off")
  20.       updateStage()
  21.       go("Back", "MENU")
  22.     2:
  23.       nothing()
  24.       unloadorb()
  25.       set gvhelpmode to 0
  26.       helphyoujiorb("Off")
  27.       updateStage()
  28.       go("Back", "MENU")
  29.     3:
  30.       nothing()
  31.     4:
  32.       nothing()
  33.     5:
  34.       nothing()
  35.     6:
  36.       nothing()
  37.     7:
  38.       nothing()
  39.       if gvhelpmode = 0 then
  40.         set gvhelpmode to 1
  41.         cursor([32, 33])
  42.       else
  43.         set gvhelpmode to 0
  44.         helphyoujiorb("Off")
  45.         updateStage()
  46.       end if
  47.     8:
  48.       nothing()
  49.       if gvsoundlevel < count(gvslevellist) then
  50.         set gvsoundlevel to gvsoundlevel + 1
  51.       else
  52.         set gvsoundlevel to count(gvslevellist)
  53.       end if
  54.       set the volume of sound 1 to getAt(gvslevellist, gvsoundlevel)
  55.       set the volume of sound 2 to getAt(gvslevellist, gvsoundlevel)
  56.       puppetSound(2, "select.aif")
  57.     9:
  58.       nothing()
  59.       if gvsoundlevel > 1 then
  60.         set gvsoundlevel to gvsoundlevel - 1
  61.       else
  62.         set gvsoundlevel to 1
  63.       end if
  64.       set the volume of sound 1 to getAt(gvslevellist, gvsoundlevel)
  65.       set the volume of sound 2 to getAt(gvslevellist, gvsoundlevel)
  66.       puppetSound(2, "select.aif")
  67.   end case
  68.   if the keyCode = 0 then
  69.     if gvhelpmode = 0 then
  70.       set gvhelpmode to 1
  71.       cursor([32, 33])
  72.     else
  73.       set gvhelpmode to 0
  74.       helphyoujiorb("Off")
  75.       updateStage()
  76.     end if
  77.   end if
  78.   if gfxexitmovie() then
  79.     unloadorb()
  80.     set gvhelpmode to 0
  81.     helphyoujiorb("Off")
  82.     updateStage()
  83.     gfxfalsepapette(1, 48)
  84.     go(1, "ENDING")
  85.   end if
  86. end
  87.